home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Archives / StartupTools / halfnhalf.lha / halfnhalf.e < prev    next >
Encoding:
Text File  |  1994-01-02  |  582 b   |  23 lines
  1. OPT OSVERSION=36
  2. OPT    STACK=10000
  3.  
  4. MODULE 'exec/memory'
  5.  
  6. PROC main()
  7.  
  8.     DEF loca
  9.  
  10.     WriteF('\n\nHalf-n-Half v0.1 PD by C.Randall on Jan 1, 1994.\n')
  11.  
  12.     IF (loca:=AllocMem($100000,MEMF_PUBLIC))=NIL
  13.         WriteF('  There is not a large enough memory block available.\n')
  14.         WriteF('  Please reboot and try again?\n')
  15.     ELSE
  16.         ^loca:=$464B4500  /* "FKE"+chr$(0) */
  17.         AddMemList($FFFF8,MEMF_FAST OR MEMF_PUBLIC OR MEMF_CLEAR,-1,loca+8,loca)
  18.         WriteF('  OK.  Now your OS thinks there is some FAST memory here.\n')
  19.         WriteF('  Remember to REBOOT after usage. (Read the docs.)\n\n')
  20.     ENDIF
  21.  
  22. ENDPROC
  23.